open(BUFF,"CI_antisense_1,3_2");
open(BUFF1,"block_list_CI_anti_1,3");
while($line=<BUFF>)
{
        chomp($line);
	$line =~ s/\s+/ /g;
	$line =~ s/ /\t/g;
        @array = split(/\t/,$line);
	#print @array."\t".$array[0]."\t".$array[2]."\n";
	@arrayy = split('__',$array[1]);
	for($i=0;$i<@arrayy;$i++)
	{
		#print $arrayy[$i]."\n";
        	@array1 = split('_',$arrayy[$i]);
        	if(exists($hash{$array1[0]}))
        	{
                	$hash{$array1[0]}++;
        	}
        	else
        	{
                	$hash{$array1[0]} = 1;
        	}
        	#print $array1[0]."\n";
	}
}
while($line=<BUFF1>)
{
        chomp($line);
        $line =~ s/^\s//g;
        @array2 = split(/\t/,$line);
        #print $array2[0]."\n";
        print $line."\t".$hash{$array2[0]}."\n";
}
